home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).adf
/
Widerstände & Berechnung
/
GEMISCHTESCHALTUNG
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-07-02
|
16KB
|
529 lines
'Dieses Programm schrieb fuer Sie
'Detlef Kornatz
'Feuerbachstrasse 6
'D-4300 ESSEN 1
'**************************************************************************
SCREEN 1,640,256,4,2
WINDOW 2,,,0,1
CLS
PALETTE 0,0.26,0.1,0 'rot
FOR i=1 TO 8
PALETTE i,i/40,i/16,0
NEXT i
FOR i=1 TO 12
LINE (i+2,7+i)-(530-i,46-i),i-1,b 'TITEL
LINE (i+532,7+i)-(630-i,46-i),i-1,b 'ende
LINE (i+2,47+i)-(216-i,86-i),i-1,b 'STROM
LINE (i+2,87+i)-(216-i,126-i),i-1,b 'SPANNUNG
LINE (i+217,47+i)-(416-i,86-i),i-1,b 'RG*R1+R2
LINE (i+217,87+i)-(416-i,126-i),i-1,b 'STROM a WIDER
LINE (i+417,47+i)-(630-i,86-i),i-1,b 'RG
LINE (i+417,87+i)-(630-i,126-i),i-1,b '??
LINE (i+2,125+i)-(630-i,258-i),i-1,b 'AUSGABEWINDOW
NEXT i
COLOR 9,0
LOCATE 4,6 :PRINT " GEMISCHTESCHALTUNG VON WIDERSTÄNDEN UND IHRE BERECHNUNG"
LOCATE 4,72:PRINT "ENDE"
COLOR 12,0
LOCATE 9,11:PRINT "1.STROM"
LOCATE 14,11:PRINT "2.STROM"
LOCATE 9,36:PRINT "1.SPANNUNG"
LOCATE 14,36:PRINT "2.SPANNUNG"
LOCATE 14,57:PRINT "2.GESAMTWIDERSTAND"
LOCATE 9,57:PRINT "1.GESAMTWIDERSTAND"
anfang:
ON MOUSE GOSUB mausdruck
MOUSE ON
WHILE 1 : WEND
mausdruck:
druck=MOUSE(0)
x=MOUSE(3) : y=MOUSE(4)
IF x>35 AND x<203 AND y>60 AND y<73 THEN GOSUB stro
IF x>35 AND x<203 AND y>100 AND y<113 THEN GOSUB stromwi
IF x>225 AND x<403 AND y>60 AND y<73 THEN GOSUB span
IF x>225 AND x<403 AND y>100 AND y<113 THEN GOSUB spanwi
IF x>425 AND x<620 AND y>100 AND y<113 THEN GOSUB gesamtb
IF x>425 AND x<620 AND y>60 AND y<73 THEN GOSUB gesamta
IF x>545 AND x<620 AND y>20 AND y<33 THEN GOSUB ende
GOTO anfang
stro:
SOUND 330,5,100
WINDOW 3,,(20,140)-(611,235),0,1
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,1
LINE (25,37)-(25,93),1
LINE (25,37)-(80,37),1
LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
LINE (80,25)-(270,50),9,b :LOCATE 5,20:PRINT "R1"
LINE (320,5)-(510,30),9,b :LOCATE 3,50:PRINT "R2"
LINE (320,45)-(510,70),9,b :LOCATE 8,50:PRINT "R3"
LINE (511,17)-(565,17),1
LINE (511,58)-(565,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,1
ON TIMER (3) GOSUB st
TIMER ON
WHILE 3:SLEEP:WEND
st:
CLS
TIMER OFF
COLOR 10,0
LOCATE 2,8
INPUT " WIDERSTAND R1: ";wl
LOCATE 4,8
INPUT " WIDERSTAND R2: ";w
LOCATE 6,8
INPUT " WIDERSTAND R3: ";ww
LOCATE 8,8
INPUT "GESAMTSPANNUNG: ";sp
CLS
rg=wl+(w*ww)/(w+ww) :stg=sp/rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl
COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSTROM =":LOCATE 2,41:PRINT "AMPER"
LOCATE 2,30:PRINT USING "#####.###"; sp/rg
COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND =":LOCATE 4,41:PRINT "OHM"
LOCATE 4,30:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1 =":LOCATE 6,41:PRINT "AMPER"
LOCATE 6,30:PRINT USING "#####.###"; spr/w
COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R2 =":LOCATE 8,41:PRINT "AMPER"
LOCATE 8,30:PRINT USING "#####.###"; spr/ww
ON TIMER (4) GOSUB strom
TIMER ON
WHILE 4:SLEEP:WEND
strom:
SOUND 440,5,100:SOUND 220,5,80
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,1
LINE (25,37)-(25,93),1
LINE (25,37)-(80,37),1
LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
LINE (80,25)-(270,50),9,b 'R1
LINE (320,5)-(510,30),9,b 'R2
LINE (320,45)-(510,70),9,b 'R3
LINE (511,17)-(565,17),1
LINE (511,58)-(565,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,1
rg=wl+(w*ww)/(w+ww) :stg=sp/rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl
COLOR 15,0 :LOCATE 2,42:PRINT "I1 =":LOCATE 2,60:PRINT "AMP"
LOCATE 2,50:PRINT USING "#####.###"; spr/w
COLOR 15,0 :LOCATE 7,42:PRINT "I2 =":LOCATE 7,60:PRINT "AMP"
LOCATE 7,50:PRINT USING "#####.###"; spr/ww
COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
LOCATE 12,11:PRINT USING "#####.###"; sp/rg
COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
LOCATE 12,55:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
COLOR 9,0 :LOCATE 5,12:PRINT "R1 =":LOCATE 5,30:PRINT "OHM"
LOCATE 5,17:PRINT USING "#####.##";wl
COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
LOCATE 3,50:PRINT USING "#####.##";w
COLOR 9,0 :LOCATE 8,42:PRINT "R3 =":LOCATE 8,60:PRINT "OHM"
LOCATE 8,50:PRINT USING "#####.##";ww
COLOR 6,0 :LOCATE 5,40:PRINT "RG2+3 =":LOCATE 5,60:PRINT "OHM"
LOCATE 5,50:PRINT USING "#####.##";(w*ww)/(w+ww)
COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
LOCATE 12,32: PRINT USING "#####.###";sp
COLOR 12,0 :LOCATE 8,13:PRINT "SPI=":LOCATE 8,26 :PRINT "VOLT"
LOCATE 8,17: PRINT USING "#####.##"; spl
COLOR 12,0 :LOCATE 10,42:PRINT "SPII=":LOCATE 10,60 :PRINT "VOLT"
LOCATE 10,50: PRINT USING "#####.##"; spr
GOTO anfang
RETURN
span:
SOUND 330,5,100
WINDOW 3,,(20,140)-(611,235),0,1
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,1
LINE (25,37)-(25,93),1
LINE (25,37)-(80,37),1
LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
LINE (80,25)-(270,50),9,b :LOCATE 5,20:PRINT "R1"
LINE (320,5)-(510,30),9,b :LOCATE 3,50:PRINT "R2"
LINE (320,45)-(510,70),9,b :LOCATE 8,50:PRINT "R3"
LINE (511,17)-(565,17),1
LINE (511,58)-(565,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,1
ON TIMER (3) GOSUB sa
TIMER ON
WHILE 3:SLEEP:WEND
sa:
CLS:TIMER OFF
COLOR 10,0
LOCATE 2,8
INPUT " WIDERSTAND R1: ";wl
LOCATE 4,8
INPUT " WIDERSTAND R2: ";w
LOCATE 6,8
INPUT " WIDERSTAND R3: ";ww
LOCATE 8,8
INPUT "GESAMTSTROM: ";stg
CLS
rg=wl+(w*ww)/(w+ww) :sp=stg*rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl
COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSPANNUNG =":LOCATE 2,41:PRINT "VOLT"
LOCATE 2,30:PRINT USING "#####.###"; stg*rg
COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND =":LOCATE 4,41:PRINT "OHM"
LOCATE 4,30:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1 =":LOCATE 6,41:PRINT "AMPER"
LOCATE 6,30:PRINT USING "#####.###"; spr/w
COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R2 =":LOCATE 8,41:PRINT "AMPER"
LOCATE 8,30:PRINT USING "#####.###"; spr/ww
COLOR 14,0 :LOCATE 10,8:PRINT "GESAMTSTROM =":LOCATE 10,41:PRINT "AMPER"
LOCATE 10,30:PRINT USING "#####.###"; sp/rg
ON TIMER (4) GOSUB spannung
TIMER ON
WHILE 4:SLEEP:WEND
spannung:
SOUND 440,5,100:SOUND 220,5,80
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,1
LINE (25,37)-(25,93),1
LINE (25,37)-(80,37),1
LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
LINE (80,25)-(270,50),9,b 'R1
LINE (320,5)-(510,30),9,b 'R2
LINE (320,45)-(510,70),9,b 'R3
LINE (511,17)-(565,17),1
LINE (511,58)-(565,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,1
rg=wl+(w*ww)/(w+ww) :stg=sp/rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl
COLOR 15,0 :LOCATE 2,42:PRINT "I1 =":LOCATE 2,60:PRINT "AMP"
LOCATE 2,50:PRINT USING "#####.###"; spr/w
COLOR 15,0 :LOCATE 7,42:PRINT "I2 =":LOCATE 7,60:PRINT "AMP"
LOCATE 7,50:PRINT USING "#####.###"; spr/ww
COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
LOCATE 12,11:PRINT USING "#####.###"; sp/rg
COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
LOCATE 12,55:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
COLOR 9,0 :LOCATE 5,12:PRINT "R1 =":LOCATE 5,30:PRINT "OHM"
LOCATE 5,17:PRINT USING "#####.##";wl
COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
LOCATE 3,50:PRINT USING "#####.##";w
COLOR 9,0 :LOCATE 8,42:PRINT "R3 =":LOCATE 8,60:PRINT "OHM"
LOCATE 8,50:PRINT USING "#####.##";ww
COLOR 6,0 :LOCATE 5,40:PRINT "RG2+3 =":LOCATE 5,60:PRINT "OHM"
LOCATE 5,50:PRINT USING "#####.##";(w*ww)/(w+ww)
COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
LOCATE 12,32: PRINT USING "#####.###";sp
COLOR 12,0 :LOCATE 8,13:PRINT "SPI=":LOCATE 8,26 :PRINT "VOLT"
LOCATE 8,17: PRINT USING "#####.##"; spl
COLOR 12,0 :LOCATE 10,42:PRINT "SPII=":LOCATE 10,60 :PRINT "VOLT"
LOCATE 10,50: PRINT USING "#####.##"; spr
GOTO anfang
RETURN
gesamta:
SOUND 330,5,100
WINDOW 3,,(20,140)-(611,235),0,1
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,1
LINE (25,37)-(25,93),1
LINE (25,37)-(80,37),1
LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
LINE (80,25)-(270,50),9,b :LOCATE 5,20:PRINT "R1"
LINE (320,5)-(510,30),9,b :LOCATE 3,50:PRINT "R2"
LINE (320,45)-(510,70),9,b :LOCATE 8,50:PRINT "R3"
LINE (511,17)-(565,17),1
LINE (511,58)-(565,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,1
ON TIMER (3) GOSUB wi
TIMER ON
WHILE 3:SLEEP:WEND
wi:
CLS:TIMER OFF
COLOR 10,0
LOCATE 2,8
INPUT " WIDERSTAND R1: ";wl
LOCATE 4,8
INPUT " WIDERSTAND R2: ";w
LOCATE 6,8
INPUT " WIDERSTAND R3: ";ww
CLS
rg=wl+(w*ww)/(w+ww) :sp=stg*rg :spr=stg*(w*ww)/(w+ww) :spl=stg*wl
COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND =":LOCATE 4,41:PRINT "OHM"
LOCATE 4,30:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
ON TIMER (4) GOSUB wid
TIMER ON
WHILE 4:SLEEP:WEND
wid:
SOUND 440,5,100:SOUND 220,5,80
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,1
LINE (25,37)-(25,93),1
LINE (25,37)-(80,37),1
LINE (270,37)-(295,37),1 :LINE(295,17)-(320,17),1
LINE (295,17)-(295,58),1 :LINE(295,58)-(320,58),1
LINE (80,25)-(270,50),9,b 'R1
LINE (320,5)-(510,30),9,b 'R2
LINE (320,45)-(510,70),9,b 'R3
LINE (511,17)-(565,17),1
LINE (511,58)-(565,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,1
rg=wl+(w*ww)/(w+ww)
COLOR 12,0 :LOCATE 12,28:PRINT "RG =":LOCATE 12,46:PRINT "OHM"
LOCATE 12,35:PRINT USING "#####.###";wl+(w*ww)/(w+ww)
COLOR 9,0 :LOCATE 5,12:PRINT "R1 =":LOCATE 5,30:PRINT "OHM"
LOCATE 5,17:PRINT USING "#####.##";wl
COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
LOCATE 3,50:PRINT USING "#####.##";w
COLOR 9,0 :LOCATE 8,42:PRINT "R3 =":LOCATE 8,60:PRINT "OHM"
LOCATE 8,50:PRINT USING "#####.##";ww
COLOR 6,0 :LOCATE 5,40:PRINT "RG2+3 =":LOCATE 5,60:PRINT "OHM"
LOCATE 5,50:PRINT USING "#####.##";(w*ww)/(w+ww)
GOTO anfang
RETURN
'------------ENDE 1-----------------------------------------
stromwi:
SOUND 330,5,100
WINDOW 3,,(20,140)-(611,235),0,1
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,2
LINE (25,17)-(25,93),1
LINE (25,17)-(80,17),1
LINE(271,17)-(320,17),1
LINE (80,5)-(270,30),9,b :LOCATE 3,22:PRINT "R 1"
LINE (320,5)-(510,30),9,b :LOCATE 3,51:PRINT "R 2"
LINE (200,45)-(390,70),9,b :LOCATE 8,36:PRINT "R 3"
LINE (511,17)-(565,17),1
LINE (391,58)-(565,58),1
LINE (25,58)-(199,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,2
ON TIMER (3) GOSUB ss
TIMER ON
WHILE 3:SLEEP:WEND
ss:
CLS:TIMER OFF
COLOR 10,0
LOCATE 2,8
INPUT " WIDERSTAND R1: ";wa
LOCATE 4,8
INPUT " WIDERSTAND R2: ";wb
LOCATE 6,8
INPUT " WIDERSTAND R3: ";w
LOCATE 8,8
INPUT "GESAMTSTROM: ";stg
CLS
rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSPANNUNG =":LOCATE 2,41:PRINT "VOLT"
LOCATE 2,30:PRINT USING "#####.###"; stg*rg
COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND =":LOCATE 4,41:PRINT "OHM"
LOCATE 4,30:PRINT USING "#####.###"; rg
COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1+R2=":LOCATE 6,41:PRINT "AMPER"
LOCATE 6,30:PRINT USING "#####.###"; sp/(wa+wb)
COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R3 =":LOCATE 8,41:PRINT "AMPER"
LOCATE 8,30:PRINT USING "#####.###"; sp/w
COLOR 14,0 :LOCATE 10,8:PRINT "GESAMTSTROM =":LOCATE 10,41:PRINT "AMPER"
LOCATE 10,30:PRINT USING "#####.###"; sp/rg
ON TIMER (4) GOSUB stwid
TIMER ON
WHILE 4:SLEEP:WEND
stwid:
SOUND 440,5,100:SOUND 220,5,80
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,2
LINE (25,17)-(25,93),1
LINE (25,17)-(80,17),1
LINE(271,17)-(320,17),1
LINE (80,5)-(270,30),9,b
LINE (320,5)-(510,30),9,b
LINE (200,45)-(390,70),9,b
LINE (511,17)-(565,17),1
LINE (391,58)-(565,58),1
LINE (25,58)-(199,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,2
rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
COLOR 15,0 :LOCATE 5,10:PRINT "I1+2 =":LOCATE 5,30:PRINT "AMP"
LOCATE 5,17:PRINT USING "#####.###"; sp/rgo
COLOR 15,0 :LOCATE 7,29:PRINT "I2 =":LOCATE 7,40:PRINT "AMP"
LOCATE 7,35:PRINT USING "#####.###"; sp/w
COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
LOCATE 12,11:PRINT USING "#####.###"; sp/rg
COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
LOCATE 12,55:PRINT USING "#####.###";rg
COLOR 9,0 :LOCATE 3,12:PRINT "R1 =":LOCATE 3,30:PRINT "OHM"
LOCATE 3,17:PRINT USING "#####.##";wa
COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
LOCATE 3,50:PRINT USING "#####.##";wb
COLOR 9,0 :LOCATE 8,29:PRINT "R3 =":LOCATE 8,40:PRINT "OHM"
LOCATE 8,35:PRINT USING "#####.##";w
COLOR 6,0 :LOCATE 5,42:PRINT "RG1+2 =":LOCATE 5,60:PRINT "OHM"
LOCATE 5,49:PRINT USING "######.##";wa+wb
COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
LOCATE 12,32: PRINT USING "#####.###";sp
GOTO anfang
RETURN
'////////////////////////////////////////////////////////
spanwi:
SOUND 330,5,100
WINDOW 3,,(20,140)-(611,235),0,1
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,2
LINE (25,17)-(25,93),1
LINE (25,17)-(80,17),1
LINE(271,17)-(320,17),1
LINE (80,5)-(270,30),9,b :LOCATE 3,22:PRINT "R 1"
LINE (320,5)-(510,30),9,b :LOCATE 3,51:PRINT "R 2"
LINE (200,45)-(390,70),9,b :LOCATE 8,36:PRINT "R 3"
LINE (511,17)-(565,17),1
LINE (391,58)-(565,58),1
LINE (25,58)-(199,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,2
ON TIMER (3) GOSUB sss
TIMER ON
WHILE 3:SLEEP:WEND
sss:
CLS:TIMER OFF
COLOR 10,0
LOCATE 2,8
INPUT " WIDERSTAND R1: ";wa
LOCATE 4,8
INPUT " WIDERSTAND R2: ";wb
LOCATE 6,8
INPUT " WIDERSTAND R3: ";w
LOCATE 8,8
INPUT "GESAMTSPANNUNG: ";sp
CLS
rgo= wa+wb :rg= (rgo*w)/(rgo+w): stg= sp/rg
COLOR 14,0 :LOCATE 2,8:PRINT "GESAMTSTROM =":LOCATE 2,41:PRINT "AMPER"
LOCATE 2,30:PRINT USING "#####.###"; sp/rg
COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND =":LOCATE 4,41:PRINT "OHM"
LOCATE 4,30:PRINT USING "#####.###"; rg
COLOR 14,0 :LOCATE 6,8:PRINT "TEILSTROM am R1+R2=":LOCATE 6,41:PRINT "AMPER"
LOCATE 6,30:PRINT USING "#####.###"; sp/(wa+wb)
COLOR 14,0 :LOCATE 8,8:PRINT "TEILSTROM am R3 =":LOCATE 8,41:PRINT "AMPER"
LOCATE 8,30:PRINT USING "#####.###"; sp/w
COLOR 14,0 :LOCATE 10,8:PRINT "GESAMTSPANNUNG =":LOCATE 10,41:PRINT "VOLT"
LOCATE 10,30:PRINT USING "#####.###"; sp
ON TIMER (4) GOSUB swid
TIMER ON
WHILE 4:SLEEP:WEND
swid:
SOUND 440,5,100:SOUND 220,5,80
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,2
LINE (25,17)-(25,93),1
LINE (25,17)-(80,17),1
LINE(271,17)-(320,17),1
LINE (80,5)-(270,30),9,b
LINE (320,5)-(510,30),9,b
LINE (200,45)-(390,70),9,b
LINE (511,17)-(565,17),1
LINE (391,58)-(565,58),1
LINE (25,58)-(199,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,2
rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
COLOR 15,0 :LOCATE 5,10:PRINT "I1+2 =":LOCATE 5,30:PRINT "AMP"
LOCATE 5,17:PRINT USING "#####.###"; sp/rgo
COLOR 15,0 :LOCATE 7,29:PRINT "I2 =":LOCATE 7,40:PRINT "AMP"
LOCATE 7,35:PRINT USING "#####.###"; sp/w
COLOR 15,0 :LOCATE 12,6:PRINT "IG =":LOCATE 12,21:PRINT "AMPER"
LOCATE 12,11:PRINT USING "#####.###"; sp/rg
COLOR 9,0 :LOCATE 12,48:PRINT "RG =":LOCATE 12,66:PRINT "OHM"
LOCATE 12,55:PRINT USING "#####.###";rg
COLOR 9,0 :LOCATE 3,12:PRINT "R1 =":LOCATE 3,30:PRINT "OHM"
LOCATE 3,17:PRINT USING "#####.##";wa
COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
LOCATE 3,50:PRINT USING "#####.##";wb
COLOR 9,0 :LOCATE 8,29:PRINT "R3 =":LOCATE 8,40:PRINT "OHM"
LOCATE 8,35:PRINT USING "#####.##";w
COLOR 6,0 :LOCATE 5,42:PRINT "RG1+2 =":LOCATE 5,60:PRINT "OHM"
LOCATE 5,49:PRINT USING "######.##";wa+wb
COLOR 12,0 :LOCATE 12,27:PRINT "SPG =":LOCATE 12,42:PRINT "VOLT"
LOCATE 12,32: PRINT USING "#####.###";sp
GOTO anfang
RETURN
gesamtb:
SOUND 330,5,100
WINDOW 3,,(20,140)-(611,235),0,1
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,2
LINE (25,17)-(25,93),1
LINE (25,17)-(80,17),1
LINE(271,17)-(320,17),1
LINE (80,5)-(270,30),9,b :LOCATE 3,22:PRINT "R 1"
LINE (320,5)-(510,30),9,b :LOCATE 3,51:PRINT "R 2"
LINE (200,45)-(390,70),9,b :LOCATE 8,36:PRINT "R 3"
LINE (511,17)-(565,17),1
LINE (391,58)-(565,58),1
LINE (25,58)-(199,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,2
ON TIMER (3) GOSUB ssw
TIMER ON
WHILE 3:SLEEP:WEND
ssw:
CLS:TIMER OFF
COLOR 10,0
LOCATE 2,8
INPUT " WIDERSTAND R1: ";wa
LOCATE 4,8
INPUT " WIDERSTAND R2: ";wb
LOCATE 6,8
INPUT " WIDERSTAND R3: ";w
CLS
rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
COLOR 14,0 :LOCATE 4,8:PRINT "GESAMTWIDERSTAND =":LOCATE 4,41:PRINT "OHM"
LOCATE 4,30:PRINT USING "#####.###"; rg
ON TIMER (4) GOSUB wider
TIMER ON
WHILE 4:SLEEP:WEND
wider:
SOUND 440,5,100:SOUND 220,5,80
CLS:TIMER OFF
COLOR 8,0
CIRCLE(25,95),4,2
LINE (25,17)-(25,93),1
LINE (25,17)-(80,17),1
LINE(271,17)-(320,17),1
LINE (80,5)-(270,30),9,b
LINE (320,5)-(510,30),9,b
LINE (200,45)-(390,70),9,b
LINE (511,17)-(565,17),1
LINE (391,58)-(565,58),1
LINE (25,58)-(199,58),1
LINE (565,17)-(565,93),1
CIRCLE(565,95),4,2
rgo= wa+wb :rg= (rgo*w)/(rgo+w): sp= stg*rg
COLOR 12,0 :LOCATE 12,27:PRINT "RG =":LOCATE 12,42:PRINT "OHM"
LOCATE 12,32:PRINT USING "#####.###";rg
COLOR 9,0 :LOCATE 3,12:PRINT "R1 =":LOCATE 3,30:PRINT "OHM"
LOCATE 3,17:PRINT USING "#####.##";wa
COLOR 9,0 :LOCATE 3,42:PRINT "R2 =":LOCATE 3,60:PRINT "OHM"
LOCATE 3,50:PRINT USING "#####.##";wb
COLOR 9,0 :LOCATE 8,29:PRINT "R3 =":LOCATE 8,40:PRINT "OHM"
LOCATE 8,35:PRINT USING "#####.##";w
COLOR 7,0 :LOCATE 5,24:PRINT "RG1+2 =":LOCATE 5,42:PRINT "OHM"
LOCATE 5,32:PRINT USING "######.##";wa+wb
GOTO anfang
RETURN
ende:
WINDOW CLOSE 2
SCREEN CLOSE 1
END
GOTO mausdruck